﻿Public Class Customers
    Dim item As ListViewItem
    Sub listdata()
        If Not rs.EOF Then
            ListView1.Items.Clear()
            rs.MoveFirst()
            Do While Not rs.EOF
                item = ListView1.Items.Add(rs.Fields("CustomerNo").Value)
                item.SubItems.Add(rs.Fields("Name1").Value)
                item.SubItems.Add(rs.Fields("Address").Value)
                item.SubItems.Add(rs.Fields("City").Value)
                rs.MoveNext()

            Loop
        Else
            ListView1.Items.Clear()

        End If
        rs.Close()
        rs = Nothing

    End Sub

    Private Sub Customers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Module1.connect()
        rs = New ADODB.Recordset
        rs.Open("select * from customers", cn, 3, 2)
        Me.listdata()
        Button2.Enabled = False
        RadioButton1.Checked = True
        Button5.Hide()

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox4.Text = "" Or TextBox3.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Supply all fields")
        Else
            rs = New ADODB.Recordset
            rs.Open("select * from customers", cn, 3, 2)
            rs.AddNew()

            rs.Fields("Name1").Value = TextBox4.Text
            rs.Fields("Address").Value = TextBox3.Text
            rs.Fields("City").Value = TextBox2.Text
            rs.Update()
            rs.Close()
            rs = Nothing
            MsgBox("Adding Successful")
            rs = New ADODB.Recordset
            rs.Open("select * from customers", cn, 3, 2)
            Me.listdata()
            TextBox5.Visible = False
            TextBox4.Text = ""
            TextBox3.Text = ""
            TextBox2.Text = ""
            Button2.Enabled = False
        End If



    End Sub

 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MainScreen.Show()
        Me.Close()

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Button1.Enabled = False
        Button2.Enabled = True
        TextBox5.Visible = True

        TextBox4.Enabled = False
        TextBox3.Enabled = False
        TextBox2.Enabled = False

        TextBox5.Text = ListView1.FocusedItem.Text
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        rs = New ADODB.Recordset
        rs.Open("SELECT * from customers where customerno = " & TextBox5.Text & "", cn, 3, 2)
        If Not rs.EOF Then
            TextBox4.Text = rs.Fields("name1").Value
            TextBox3.Text = rs.Fields("address").Value
            TextBox2.Text = rs.Fields("city").Value
        End If
        rs.Close()
        rs = Nothing
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox4.Enabled = True
        TextBox3.Enabled = True
        TextBox2.Enabled = True

        Button2.Hide()
        Button5.Show()

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button1.Enabled = True
        Button2.Enabled = False
        TextBox5.Visible = False
        TextBox4.Text = ""
        TextBox3.Text = ""
        TextBox2.Text = ""
        Button5.Hide()
        Button2.Show()
        TextBox4.Enabled = True
        TextBox3.Enabled = True
        TextBox2.Enabled = True
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        
        If RadioButton1.Checked Then
            rs = New ADODB.Recordset
            rs.Open("SELECT * from customers where Name1  like '%" & TextBox1.Text & "%'", cn, 3, 2)
            Me.listdata()
        Else
            If RadioButton2.Checked Then
                rs = New ADODB.Recordset
                rs.Open("SELECT * from customers where address  like '%" & TextBox1.Text & "%'", cn, 3, 2)
                Me.listdata()

            Else
                If RadioButton3.Checked Then
                    rs = New ADODB.Recordset
                    rs.Open("SELECT * from customers where city  like '%" & TextBox1.Text & "%'", cn, 3, 2)
                    Me.listdata()
                End If
            End If
        End If

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TextBox1.Text = ""
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       TextBox1.Text = ""
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TextBox1.Text = ""
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox4.Text = "" Or TextBox3.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Supply all fields")
        Else
            rs = New ADODB.Recordset
            rs.Open("SELECT * from customers where customerno = " & TextBox5.Text & "", cn, 3, 2)
            rs.Fields("Name1").Value = TextBox4.Text
            rs.Fields("Address").Value = TextBox3.Text
            rs.Fields("City").Value = TextBox2.Text
            rs.Update()
            rs.Close()
            rs = Nothing
            MsgBox("Editing Successful")
            rs = New ADODB.Recordset
            rs.Open("select * from customers", cn, 3, 2)
            Me.listdata()
        End If
        Button5.Hide()
        Button2.Show()
        TextBox4.Enabled = False
        TextBox3.Enabled = False
        TextBox2.Enabled = False
    End Sub

    Private Sub Customers_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
      
    End Sub
End Class